home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr01 / halcn305.zip / TUTOR10.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-21  |  679b  |  26 lines

  1. program Tutor10;
  2. {$N+,E+}          {Required for floating point number handling}
  3. uses
  4.    CRT,
  5.    GSOB_DTE,
  6.    GSOB_DBF,
  7.    GSOB_VAR;
  8. var
  9.    MyFile  : GSO_dBaseFld;
  10. begin
  11.    ClrScr;
  12.    SetCentury(On);              {Displays 4-character year (e.g., 1992)}
  13.    MyFile.Init('TUTOR1');
  14.    MyFile.Open;
  15.    MyFile.GetRec(Top_Record);
  16.    while not MyFile.File_EOF do
  17.    begin
  18.       writeln(MyFile.DelFlag:6,'  ',MyFile.RecNumber:4,'  ',
  19.               MyFile.DateGet('BIRTHDATE'):10,'  ',
  20.               MyFile.StringGet('BIRTHDATE'),'  ',
  21.               GS_Date_View(MyFile.DateGet('BIRTHDATE')+90));
  22.       MyFile.GetRec(Next_Record);
  23.    end;
  24.    MyFile.Close;
  25. end.
  26.